home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / xbin / make-fn < prev    next >
Encoding:
Text File  |  1989-09-04  |  321 b   |  19 lines
  1. #!/bin/sh
  2. LISP=akcl
  3. if [ $# = 2 ] ; then LISP=$2 ; fi
  4.  
  5. TMP=/tmp/tmpd$$
  6. mkdir ${TMP}
  7. cp $@ ${TMP}
  8.  
  9. for v in $@ ; 
  10. do
  11. echo '(load (format nil "~a~a" si::*system-directory* "../cmpnew/collectfn"))' \
  12.    '(compiler::emit-fn t)'\
  13.    "(compile-file \"${TMP}/$v\" :o-file nil)" | ${LISP}
  14. done
  15.  
  16. mv ${TMP}/*.fn .
  17. rm -f -r ${TMP}
  18.  
  19.